home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / dev_libs / feelin040718 / demos / groups.e < prev    next >
Encoding:
Text File  |  2004-08-03  |  2.7 KB  |  106 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF app,win
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       app := AppObject,
  10.          Child, win := WindowObject,
  11.             FA_Window_Title,  'Feelin : Groups',
  12.             FA_Window_Open,   TRUE,
  13.  
  14.             Child, Page,
  15.                Child, HGroup, FA_Group_Title,'Types', FA_Group_SameSize,TRUE,
  16.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Horizontal',
  17.                      Child, rectObj(),
  18.                      Child, rectObj(),
  19.                      Child, rectObj(),
  20.                   End,
  21.  
  22.                   Child, VGroup, GroupFrame, FA_Frame_Title, 'Vertical',
  23.                      Child, rectObj(),
  24.                      Child, rectObj(),
  25.                      Child, rectObj(),
  26.                   End,
  27.  
  28.                   Child, VGroup, GroupFrame, FA_Frame_Title, 'Array', FA_Group_Rows, 3,
  29.                      Child, rectObj(),
  30.                      Child, rectObj(),
  31.                      Child, rectObj(),
  32.                      Child, rectObj(),
  33.                      Child, rectObj(),
  34.                      Child, rectObj(),
  35.                      Child, rectObj(),
  36.                      Child, rectObj(),
  37.                      Child, rectObj(),
  38.                   End,
  39.                End,
  40.  
  41.                Child, VGroup, FA_Group_Title,'Sizes',
  42.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Different Weights',
  43.                      Child, textObj( '25 kg',[FA_Weight, 25, NIL]),
  44.                      Child, textObj( '50 kg',[FA_Weight, 50, NIL]),
  45.                      Child, textObj( '75 kg',[FA_Weight, 75, NIL]),
  46.                      Child, textObj('100 kg',[FA_Weight,100, NIL]),
  47.                   End,
  48.  
  49.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Fixed & Variable Sizes', FA_SetMax,FV_SetMaxH,
  50.                      Child, textObj('fixed',[FA_SetMax,FV_SetMaxW, NIL]),
  51.                      Child, textObj('free'),
  52.                      Child, textObj('fixed',[FA_SetMax,FV_SetMaxW, NIL]),
  53.                      Child, textObj('free'),
  54.                      Child, textObj('fixed',[FA_SetMax,FV_SetMaxW, NIL]),
  55.                   End,
  56.  
  57.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Relative Sizes', FA_Group_RelSizing,TRUE,
  58.                      Child, textObj('1'),
  59.                      Child, textObj('12'),
  60.                      Child, textObj('123'),
  61.                      Child, textObj('1234'),
  62.                      Child, textObj('12345'),
  63.                   End,
  64.  
  65.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Same Width', FA_Group_SameWidth,TRUE,
  66.                      Child, textObj('1'),
  67.                      Child, textObj('12'),
  68.                      Child, textObj('123'),
  69.                      Child, textObj('1234'),
  70.                   End,
  71.                End,
  72.             End,
  73.          End,
  74.       End
  75.  
  76.       IF app
  77.          F_DoA(win,FM_Notify,[FA_Window_CloseRequest,TRUE,app,FM_Application_Shutdown,0])
  78.          F_DoA(app,FM_Application_Run,NIL)
  79.          F_DisposeObj(app)
  80.       ENDIF
  81.  
  82.       CloseLibrary(feelinbase)
  83.    ELSE
  84.       WriteF('Unable to open feelin.library\n')
  85.    ENDIF
  86. ENDPROC
  87.  
  88. PROC textObj(name,tags=NIL)
  89.    RETURN   TextObject,
  90.             DontChain,
  91.             FA_SetMax,        FV_SetMaxH,
  92.             FA_Frame,         'FP_Text_Frame',
  93.             FA_Back,          'FP_Text_Back',
  94.             FA_Text,          name,
  95.             FA_Text_PreParse, '<align=center>',
  96.             TAG_MORE,         tags,
  97.             End
  98. ENDPROC
  99. PROC rectObj()
  100.    RETURN   AreaObject,
  101.             DontChain,
  102.             FA_Frame,   'FP_Text_Frame',
  103.             FA_Back,    'FP_Text_Back',
  104.             End
  105. ENDPROC
  106.